<?php
/* 
 * ********* CVS HEADER ********* 
 * 
 * $RCSfile: admfoncliste.php,v $ 
 * $Date: 2005/10/21 12:58:07 $ 
 * $Revision: 1.3 $ 
 * 
 * ********* CVS HEADER ********* 
 */
require_once("module/TPLN/TPLN.php"); 
$TPLN = new TPLN; 
$TPLN->Open($op_basepath."tpl/admfoncliste.html"); 
$TPLN->IncludeFile("header","environnement/$session[environnement]/header.php"); 
$TPLN->IncludeFile("footer","environnement/$session[environnement]/footer.php");

require_once(get_path_module("admin"));
$pc = new panneau_controle();
$pc->calculRubriqueParFonction($op);
$TPLN->Parse("panneau_controle",$pc->retourneEntete());

$query="SELECT id_fonction,code_op,description,nom FROM fonction LEFT OUTER JOIN rportal_menu ON fonction.id_menu=rportal_menu.id ORDER BY code_op";
$result=rportalrequete($query) or rportalerreur($query,"?op=");
if(rportalnbresult($result)==0){
    $TPLN->EraseBloc("bloc1");
}else{
    $class="liste_impaire"; 
    while($fonction=rportalligne($result)){
        $TPLN->Parse("bloc1.fid",$fonction['id_fonction']);
        $TPLN->Parse("bloc1.code_op",$fonction['code_op']);
        $TPLN->Parse("bloc1.description",$fonction['description']);
        $TPLN->Parse("bloc1.menu",$fonction['nom']);
        $TPLN->Parse("bloc1.classe",$class);
        if($class!="liste_impaire") 
        { 
            $class="liste_impaire"; 
        }else{ 
            $class="liste_paire"; 
        } 
        $TPLN->Loop("bloc1");
    }
}
$TPLN->Write();
?>